8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/08 System Utilities/TS484D.SFX/64 keypad+

Commodore BASIC | 1992-10-05 | 4KB | 16 lines

10 POKE53296,1:FORX=52224TO53208:READA:POKEX,A:NEXT:POKE53296,0:SYS52224:NEW:DATA173,3,3,201,204,240,22,173,2,3,141,249,207,173,3,3,141,250,207,169,39,141,2,3,169,204,141,3,3,96,56,162,215,160,207,32,141,255,96,173,144,2,201,205,240,100,120,24,173,216,207,208,67,173,20,3
20 DATA141,247,207,173,21,3,141,248,207,169,149,141,20,3,169,204,141,21,3,173,24,3,141,191,207,173,25,3,141,192,207,169,193,141,24,3,169,207,141,25,3,173,38,3,141,251,207,173,39,3,141,252,207,169,196,141,38,3,169,205,141,39,3,56
30 DATA173,143,2,141,253,207,173,144,2,141,254,207,169,245,141,143,2,169,205,141,144,2,32,31,204,88,108,249,207,169,248,141,47,208,169,255,141,0,220,205,1,220,208,15,141,47,208,74,141,0,220,169,64,141,255,207,108,247,207,160,0,140,141,2
40 DATA169,251,141,47,208,162,8,173,1,220,205,1,220,208,248,74,144,9,200,202,208,249,110,47,208,176,234,185,251,204,16,11,201,249,176,56,162,1,142,141,2,41,127,205,255,207,240,56,141,255,207,133,203,169,255,141,47,208,32,248,204,108,247,207
50 DATA108,143,2,255,35,44,135,7,130,2,254,253,47,249,252,1,19,32,8,251,27,16,250,59,11,24,56,64,205,255,207,240,7,141,255,207,168,32,36,205,169,64,208,199,200,208,25,173,48,208,73,1,141,48,208,41,1,8,173,17,208,41,239,40,208,2,9,16,141,17,208,96
60 DATA200,208,6,169,128,141,188,207,96,200,208,7,169,0,133,212,133,216,96,200,208,6,169,1,141,188,207,96,165,157,201,128,208,22,165,204,208,18,200,208,30,162,13,189,121,205,157,119,2,202,16,247,169,14,133,198,96,141,83,89,83,53,51,48
70 DATA48,57,58,82,69,77,13,200,208,25,162,8,189,154,205,157,119,2,202,16,247,169,9,133,198,96,141,83,89,83,53,50,56,54,50,165,198,168,24,105,5,205,137,2,240,2,176,14,133,198,162,4,189,191,205,153,119,2,200,202,16,246,96,32,65,84,65,68,72,165,154,201
80 DATA3,208,38,173,188,207,240,33,48,6,104,72,201,13,208,25,169,0,141,188,207,133,198,88,32,228,255,208,12,173,188,207,240,246,16,5,169,0,141,188,207,104,108,251,207,165,204,208,119,165,203,201,1,208,113,197,197,240,109,120,160,24,162,2
90 DATA177,209,41,127,221,115,206,208,95,164,211,177,209,41,127,133,206,145,209,160,0,185,118,206,145,209,200,192,4,208,246,160,24,169,44,145,209,200,162,56,165,186,201,9,208,1,232,138,145,209,200,173,141,2,41,1,170,208,10,169,44,145,209,200
100 DATA169,49,145,209,200,169,32,145,209,160,3,185,122,206,153,119,2,136,16,247,160,4,138,208,2,160,0,132,198,169,20,133,205,169,0,141,141,2,133,207,108,253,207,7,18,16,12,15,1,4,13,82,117,58,32,121,0,240,19,32,253,174,32,235
110 DATA183,142,184,207,165,20,141,186,207,165,21,141,187,207,173,2,3,141,189,207,173,3,3,141,190,207,169,173,141,2,3,169,206,141,3,3,96,32,179,206,76,134,164,173,186,207,174,187,207,133,99,134,98,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,157,0,2
120 DATA32,210,255,232,208,242,173,186,207,24,109,184,207,141,186,207,144,3,238,187,207,169,32,32,210,255,32,207,255,201,13,240,3,76,105,165,173,186,207,237,184,207,141,186,207,176,3,206,187,207,173,189,207,172,190,207,141,2,3,140,3,3,76,118
130 DATA165,173,141,2,41,1,24,105,8,133,186,162,13,169,14,32,195,255,165,186,32,177,255,169,111,32,147,255,162,4,189,177,207,32,168,255,202,16,247,32,174,255,169,14,166,186,160,96,32,186,255,169,2,162,182,160,207,32,189,255,32,192,255,176
140 DATA84,165,186,32,180,255,169,96,32,150,255,169,0,133,144,160,3,132,183,32,165,255,133,193,164,144,208,57,32,165,255,133,194,164,144,208,48,164,183,136,208,231,166,193,165,194,32,205,189,169,32,32,210,255,32,165,255,166,144,208,24,201,0,240
150 DATA6,32,210,255,76,134,207,169,13,32,210,255,32,225,255,240,4,160,2,208,188,169,0,133,198,169,14,32,195,255,76,204,255,208,66,69,45,77,36,48,10,0,10,0,0,255,255,71,254,32,234,255,165,145,201,127,208,10,169,0,141,48,208,169,4,141,136,2,108,191,207,0,0